home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 42 / 042.d81 / small dos (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  27 lines
  1. 10 poke53280,.:poke53281,.
  2. 20 printchr$(142)chr$(8)"[147]            [154]loadstar presents:"
  3. 30 print"               small dos"
  4. 40 print"           by richard curcio"
  5. 50 print"             [153]copyright 1987"
  6. 60 print"       [154]press space [154]to use small dos"
  7. 70 print"             press q [154]to quit"
  8. 80 a=peek(203):ifa<>62anda<>60then80
  9. 90 ifa=62then60000
  10. 100 ca=(peek(45)+256*peek(46))-640
  11. 110 print"[147][154]  place it at the top of memory (y[154]/n[154])?"
  12. 120 poke198,0:wait198,1:geta$
  13. 130 ifa$="n"then500
  14. 135 ifa$<>"y"then120
  15. 140 sysca:clr
  16. 400 print"small dos installed":ea=peek(36)+256*peek(37):ds=ea-511
  17. 410 printds"to"ea:print"sys"ds"[145][145][145]"
  18. 415 poke198,1:poke631,13:new
  19. 500 input"[154]      where";ds:dh=int(ds/256):dl=ds-256*dh
  20. 502 ifds>1023andds<40448then510
  21. 505 ifds>49152andds<52736then510
  22. 507 print"      illegal address":goto60
  23. 510 poke781,dl:poke782,dh:ca=ca+12:goto140
  24. 60000 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  25. 60010 ifer<>63thenend
  26. 60020 load"hello connect",8
  27.